data-raw/tabular data.R

In easystats/effectsize: Indices of Effect Size

# RCT ---------------------------------------------------------------------

RCT_table <- matrix(c(
  71, 50,
  30, 100
), nrow = 2)
dimnames(RCT_table) <- list(
  Diagnosis = c("Sick", "Recovered"),
  Group = c("Treatment", "Control")
)
RCT_table <- as.table(RCT_table)

save(RCT_table, file = "data/RCT_table.rdata")


# Music -------------------------------------------------------------------

Music_preferences <- matrix(c(
  150, 100, 165,
  130, 50, 65,
  35, 10, 2,
  55, 40, 25
), nrow = 4)
dimnames(Music_preferences) <- list(
  c("Pop", "Rock", "Jazz", "Classic"),
  c("Psych", "Econ", "Law")
)
Music_preferences <- as.table(t(Music_preferences))

save(Music_preferences, file = "data/Music_preferences.rdata")



Music_preferences2 <- matrix(
  c(
    151, 130, 12, 7,
    77, 6, 111, 4,
    0, 4, 2, 165
  ),
  byrow = TRUE, nrow = 3
)
dimnames(Music_preferences2) <- list(
  c("Psych", "Econ", "Law"),
  c("Pop", "Rock", "Jazz", "Classic")
)
Music_preferences2 <- as.table(Music_preferences2)

save(Music_preferences2, file = "data/Music_preferences2.rdata")

# FASD ---------------------------------------------------------------------

Smoking_FASD <- as.table(c(FAS = 17, PFAS = 11, TD = 640))

save(Smoking_FASD, file = "data/Smoking_FASD.rdata")


# Food --------------------------------------------------------------------

food_class <- matrix(c(
  47, 0, 0,
  0, 12, 21
), nrow = 2, byrow = TRUE)
dimnames(food_class) <- list(c("Vegan", "Not-Vegan"), c("Soy", "Milk", "Meat"))
food_class <- as.table(food_class)

save(food_class, file = "data/food_class.rdata")
# styler: on